home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / comms / thor_2.22 / thor222_inet.lha / unix / grab next >
Text File  |  1995-12-18  |  2KB  |  88 lines
  1. #!/bin/sh
  2. ##########################################################################
  3. #     UQWK_SOUP grab script v0.95 for THOR.  Author: Kjell Irgens.       #
  4. # Should be safe to use, but I take *no* responsibilities for lost mail. #
  5. # grab -h for help.                                                      #
  6. ##########################################################################
  7.  
  8. grab=soup                  # modify if the grab in THOR name is not "soup"
  9. wdir=soup                  # name of work directory (UN*X side)
  10.  
  11.        UQ_HOME_DIR=. UQ_DO_NEWS=1 UQ_SOUP_MODE=1 UQ_NRC_FILE=$HOME/.newsrc
  12. export UQ_HOME_DIR   UQ_DO_NEWS   UQ_SOUP_MODE   UQ_NRC_FILE
  13.  
  14. repliesfile=$grab\.out
  15. grabfile=$grab`date +%H%M%S`.zip
  16.  
  17. mkdir 2>/dev/null $HOME/$wdir
  18. cd $HOME/$wdir
  19.  
  20. no_rz=false no_sz=false restore=false UQ_DO_MAIL=1
  21.  
  22. for i in $*
  23. do
  24.   case $i in
  25.   -r ) no_rz=true ;;
  26.   -s ) no_sz=true ;;
  27.   -n ) UQ_DO_NEWS=0 ; export UQ_DO_NEWS ;;
  28.   -m ) UQ_DO_MAIL=0 ; export UQ_DO_MAIL ;;
  29.   -u ) UQ_MAX_BLKS=0 ; export UQ_MAX_BLKS;;
  30.   -x ) if [ -r .mail_backup ]
  31.        then echo "Restoring mail..."
  32.        else echo "No mail to restore"
  33.        fi
  34.        cat 2>/dev/null .mail_backup >>$MAIL && rm 2>/dev/null .mail_backup
  35.        restore=true;;
  36.   -z ) if [ -r .newsrc_backup ]
  37.        then echo "Restoring news..."
  38.        else echo "No news to restore"
  39.        fi
  40.        mv 2>/dev/null .newsrc_backup $UQ_NRC_FILE
  41.        restore=true;;
  42.   *  )
  43.        echo "Usage: $0 [option] ..."
  44.        echo "[-r]  no rz";echo "[-s]  no sz";echo "[-n]  don't grab news"
  45.        echo "[-m]  don't grab mail";echo "[-u]  unlimited grab size"
  46.        echo "[-x]  restore mail";echo "[-z]  restore news"
  47.        echo "[-h]  this text"
  48.        exit 0 ;;
  49.   esac
  50. done
  51.  
  52. if [ $restore = true ]
  53. then exit 0
  54. fi
  55.  
  56. # backups never hurt anyone
  57. if [ $UQ_DO_MAIL = 1 ]
  58. then cp 2>/dev/null $MAIL .mail_backup
  59. fi
  60. if [ $UQ_DO_NEWS = 1 ]
  61. then cp 2>/dev/null $UQ_NRC_FILE .newsrc_backup
  62. fi
  63.  
  64.  
  65. if [ $no_rz = false ]
  66. then rz
  67. fi
  68.  
  69. if [ -r $repliesfile ]
  70. then unzip -U $repliesfile
  71. fi
  72.  
  73. if [ -r REPLIES ]
  74. then uqwk -RREPLIES
  75. else uqwk
  76. fi
  77.  
  78. rm 2>/dev/null $repliesfile
  79.  
  80. if [ -r AREAS ]
  81. then
  82.   zip -m $grabfile AREAS *.MSG
  83.   if [ $no_sz = false ]           # assumes you use zmodem, you could also
  84.   then                            # use: kermit -i -s $grabfile && ...
  85.     sz -br $grabfile && rm $grabfile
  86.   fi
  87. fi
  88.